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4-Sep-1 EDT.SRCIL ION.BLI1; 
1 OQ RTITLE "EDTSLDIVISION = divide Line number by 10*#(0-14)' 
§ MODULE EOTSLOIVI SIN ( ! Pseudo dhyjston by 10**(0-14) 
903 IDENT = 'v04=000" ! File: LDIVISION.BLI Edit: J8S1005 
= 
ang BEGIN 

008 PITITITILILILILL LLL LLL LIL LLL iilitiiiiiiiiiiiii 
ie * 
009 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
10 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
ttt is ALL RIGHTS RESERVED. ~ 
4 ® 
ig ie THIS SOFTWARE | Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
0014 1 i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 i* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0016 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
901 ie OTHER PERSON. NO TITLE TO Aub OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
0018 is TRANSFERRED. e 
0020 1 is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 it SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
90 : ie CORPORAT ION. e 
0024 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
90 3 is SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. , 
4 | pnbeasddeacshbbedensienneeendbessosesneneebeonnsennenennadodeseeqneneeseness 


ong ! 

00 

003 '+4 

Ope ! FACILITY: EDT == The DEC Standard Editor 

003 i ABSTRACT: 

003 This module replaces all division in EDT. it determines the highest 
003 power of ten (from 10**0 to 10**14) which can be divided into a Line 
i number. 

394 i ENVIRONMENT: Runs at any access mode - AST reentrant 

004 ! AUTHOR: Sharon M. Burlingame, CREATION DATE: February 11, 1982 


i MODIFIED BY: 


0 Original. SMB 11-FEB-1982 
- i Minor modifications due to code revie 
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SMB 24-May-1982 


wl 
ify to use new 48 bit macro. STS 01 
Modify to use new compare macro. STS 2 
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L 
; ¢ é ] 4SBTTL ‘Declarations’ ; 
3 § i ! TABLE OF CONTENTS: ‘ 
: 8 1 : 
; 1 REQUIRE "EDTSRC: TRAROUNAM'; 5 
; @& 3 1 3 
3.6 CS} rh 1 FORWARD ROUTINE 3 
: e 4 ' EDTSSLDIV : NOVALUE; ! Divide a Line number by 10**(0-14) 3 
; 64 ; . we F 
s 65 ¢ 1 ! INCLUDE FILES: 3 
; 1! 3 
3 85 20 1 3 
5 oS 238 ! REQUIRE "EDTSRC:EDTREQ'; $ 
3 0 .- we 3 
3 71 Bee6 1 ! MACROS: 3 
3 7 bee 2 3 
3 7 644 1! NONE F 
s 76 0645 1! 3 
3 75 0646 1! 3 
; £6 poet 1! : 
ese sy 48 1! NONE F 
a | 0649 1! 3 
; 79 944 1 ! OWN STORAGE: 3 
; 80 651 1! 3 
3 a bees 1! NONE F 
3 0655 1! 3 
3 8 0654 1 ! EXTERNAL REFERENCES: é 
; «BS 0655 1! 3 
; 6B 9656 1! In the routine : 
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? a: XSBTTL "EDTSSLDIV = divide Line number by 10##(0-14)' 
dé GLOBAL ROUTINE EDTSSLDIV ( t Divide Line number by 10*#(0-14) 
066 NUMBER, i The Line num 
d6¢ ; i number of times divisible 
b¢ I i Power of ten to divide by 
066 ) : NOVALUE = | 


++ 
FUNCTIONAL DESCRIPTION: 
This routine performs division by repeated comparisons and 
subtractions. It determines how many times a Line number 
is divisible by a power of ten and returns a digit from 0-9. 
FORMAL PARAMETERS: 
NUMBER input/output parameter - Line number to be divided 


i) output parameter - digit to be returned = number of times 
a power of ten divided the Line number 


I input parameter - power of ten to divide by 
IMPLICIT INPUTS: 
EDTS$L_LNOO | 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 

The value in NUMBER is decreased by D * 10**(]) 
| 
| 
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ee 

99 BEGIN 

701 — 

Ne EDTS$L_LNOO : LNOVECTOR (14); 
704 LOCAL 

705 DIGIT 

? LINNO’: LN_BLOCK; 

, 

709 & “Fetch the Line number into a Local 
at MOVELINE (.NUMBER, LINNO); 

71 


| 
i Determine how many times this power of ten will divide the Line number 
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ind the digit corresponding to t 


BEGIN 
SUBLINE (EDTSS$L 
ey = .DIGIT # 1; 
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.D = .DIGIT; 
MOVEL INE (LINNO, .NUMBER); 


ten 
his power of ten 


I 
i) 
DIGIT = 0; 
~ WHILE (CMPLNO (LINNO, EDTS$L_LNOO [.1]) GEQ 0) DO 
¥e ve found the correct power o 
LNOO C.1], LINNO); 
1 


15 
1SION = ivige Line ounber by 108ec0-16 16-Sep-1984 00:46:47 
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ite Oh iaeure V4.0-74 Page 4) 
EDT. SRCILDIVISION.BLI; (3) 


Transfer the digit and new Line number to return parameters 


! of routine EDTS$LDIV 


.TITLE EDTSLDIVISION EDTSLDIVISION - divide Line numbe F 

$ r by 10*#(0-14 é 
.IDENT \V04-000\ F 

EXTRN EDTS$$L_LNOO F 

PSECT _EDTSCODE.NOWRT, SHR, PIC,2 : 

003¢ 00000 .ENTRY EDTSSLDIV, Save R2,R3,R4,R5 : 0659 ; 

08 ¢ 9000¢ SUBL , SP : ; 

6E 04 06 9900 MOVC3 #6, @NUMBER, LINNO : 0711 ; 
D4 OO000A CLRL_ DIGIT : 0715 : 

06 ¢3 000¢ MULL3 #6, I, RO : 0717 : 
0000000060040 9€ 00011 MOVAB EDTS$L_LNOOCROJ, R1 ; ; 
04 AE B1 00019 1$ CMPW HIGH_1, 4(R1) ; ; 
0? 1F Oo1g BLSSU _2$ : ; 

10 Ne 00 NEQ 4$ ; : 

6E D1 000 2 CMPL LOw.1, (R1) ; : 

05 1€ 000 BGEQU 3$ ; ; 

01 CE 00027 28 MNEGL #1, RO : : 

09 11 O002A BRB 5$ F : 

4 12 0002C 3$ BNEQ 4$ ; : 

9 ps CLRL = RO ; ; 

1 BRB 5$ : : 

1 09 4$: MOVL #1, RO F : 

14 «1 5$: BLSS 6$ : 3 

06 AE B MOVW  UPPER_WORD, SAVE : : 
61 C B SUBL2 (R1),~LINNO : : 

06 Al D SBwC 20s 4 (R15, LINNO ; : 
29 B0 04 MOVW SAVE, UPPER_WORD : F 

06 4 INCL bicif + 0724 3 

ce 1 49 BRB 1 : 0717 : 

4 0 4B 6$: MOVL. DIGIT, aD : 0730 : 

06 4F MOVC3 #6, LINNO, @NUMBER : 0731 ; 

4 00054 ET : 0752 ; 
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; Routine Size: 85 bytes, Routine Base: _EDTSCODE + 0000 


; 163 Tae 3 
; 164 AR 1 !<BLF/PAGE> 


15 
EDTSLDIVISION EDTSLDIVISION = divide Line number by 10**(0-14 1h-S2p-1 9 AX-11 Bliss-32 V4.0-74 Pp « 
Phe si EDTSELDIV = divide Line number by 10**(0-14) la-Sep- 1382 99: $8: $5 EDT. SRCILDIVISION.BLI; oer at 
ay 735 1 END ! T 
166 ary of module EDT$LDIVISION 
: 168 737 0 ELUDOM 


] 

| 

| 

PSECT SUMMARY | 

Name Bytes Attributes | 
_EDTSCODE 85 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


We aS NR at oo is en ge fg SyYEQOLS esweeoee Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 9 2 40 00:00.2 

; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

: COMMAND QUALIFIERS 

; 174 eaama cachet ltt tan ornate tata icctate MSRC$:LDIVISION.BLI/UPDATE=(ENHS:L 
giao: 85 code + 0 data bytes 


Lines/CPU Min: 789 

Ronenee/ Peres 300 
pone’ | Used: 85 pages 

Compilation Complete 
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